@NullResponse @RapidCodeOn
@Flag(ExtraStrokesOK) @NullResponse @CallReturn(CR\BackgroundMode\Punishment\SpankzChoir\ExtraStrokes.txt)
@NullResponse @SetVar[GoldOwedInTime]=[0]
@NullResponse @SetVar[GoldOwedLate]=[0]
@NullResponse @SetVar[AuctionStrokes2]=[0] 
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]+[AuctionStrokes]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[2]
@NullResponse @If[AuctionStrokes2]>=[1000]Then(Owe1)
@NullResponse @If[AuctionStrokes2]>=[800]Then(Owe2)
@NullResponse @If[AuctionStrokes2]>=[600]Then(Owe3)
@NullResponse @If[AuctionStrokes2]>=[400]Then(Owe4)
@NullResponse @If[AuctionStrokes2]>=[200]Then(Owe5)
@NullResponse @If[AuctionStrokes2]<[200]Then(Owe6)
(Owe1)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]-[999]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]*[3]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[700] @Goto(AddFlags)
(Owe2)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]-[799]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]*[5]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[4]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[450] @Goto(AddFlags)
(Owe3)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]-[599]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[250] @Goto(AddFlags)
(Owe4)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]-[399]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]*[3]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[4]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[100] @Goto(AddFlags)
(Owe5)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]-[199]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]*[3]
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[4]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[50] @Goto(AddFlags)
(Owe6)
@NullResponse @ChangeVar[AuctionStrokes2]=[AuctionStrokes2]/[2]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[AuctionStrokes2] @Goto(AddFlags)
(AddFlags)
@Flag(SpankChoirCaning) @NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[80]
@NotFlag(SpankChoirSafeword) @NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[50]
@Flag(SpankChoirMouthSoap) @NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[140]
@Flag(SpankChoirFaceSlap) @NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[25]
(AddCorner)
@NullResponse @SetVar[CornerGold]=[10]
@NullResponse @ChangeVar[CornerGold]=[CornerGold]*[CornertimeLimit]
@NullResponse @ChangeVar[CornerGold]=[CornerGold]*[CornertimeTimeLimit]
@NullResponse @ChangeVar[CornerGold]=[CornerGold]/[3]
@NullResponse @ChangeVar[GoldOwedLate]=[GoldOwedLate]+[CornerGold]
(Total)
@NullResponse @ChangeVar[GoldOwedInTime]=[GoldOwedInTime]+[GoldOwedLate]
@NullResponse @ChangeVar[GoldOwedInTime]=[GoldOwedInTime]/[10]
@Flag(Personality1) @NullResponse @ChangeVar[GoldOwedInTime]=[GoldOwedInTime]*[4]
@Flag(Personality2) @NullResponse @ChangeVar[GoldOwedInTime]=[GoldOwedInTime]*[3]
@Flag(Personality3) @NullResponse @ChangeVar[GoldOwedInTime]=[GoldOwedInTime]*[2]
@End